home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpapi1.zip
/
NWMESS.PA1
< prev
next >
Wrap
Text File
|
1991-12-04
|
4KB
|
70 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWMESS **}
{***************************************************************************}
{** Version : 1.0b ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : MESSAGE **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 Tony Covelli, **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWMESS;
INTERFACE
USES
netware, nwvar;
TYPE
pMessageOBJ = ^MessageOBJ;
MessageOBJ = object (NetwareOBJ)
constructor Init;
FUNCTION BroadcastToConsole (Message : ConsoleMessageType) : WORD;
FUNCTION CheckPipeStatus (ConnectionList : ConnectionListType; VAR ResultList : ConnectionListType;
VAR ConnectionCount : BYTE) : WORD;
FUNCTION CloseMessagePipe (ConnectionList : ConnectionListType; VAR ResultList : ConnectionListType;
VAR ConnectionCount : BYTE) : WORD;
FUNCTION DisableBroadcasts : WORD;
FUNCTION EnableBroadcasts : WORD;
FUNCTION GetBroadcastMessage (VAR Message : BroadcastMessageType) : WORD;
FUNCTION GetBroadcastMode : WORD;
FUNCTION GetPersonalMessage (VAR Message : PersonalMessageType; VAR SourceConnection : WORD) : WORD;
FUNCTION LogNetworkMessage (Message : ConsoleMessageType) : WORD;
FUNCTION OpenMessagePipe (ConnectionList : ConnectionListType; VAR ResultList : ConnectionListType;
VAR ConnectionCount : BYTE) : WORD;
FUNCTION SendBroadcastMessage (Message : BroadcastMessageType; ConnectionList : ConnectionListType;
VAR ResultList : ConnectionListType; ConnectionCount : BYTE) : WORD;
FUNCTION SendPersonalMessage (Message : PersonalMessageType; ConnectionList : ConnectionListType;
VAR ResultList : ConnectionListType; ConnectionCount : BYTE) : WORD;
PROCEDURE SetBroadcastMode (BroadcastMode : WORD);
destructor Done; virtual;
END;